home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / clisp-c.zoo / defs2.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1993-06-05  |  6.2 KB  |  119 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 14. LISP:T 210292.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "LISP")
  3. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D4 36 01 2F FF 19 01)
  4.    (NTH-VALUE FUNCTION-LAMBDA-EXPRESSION DEFPACKAGE)
  5.   )
  6. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D4 36 02 30 07 19 01) "SYSTEM")
  7. #Y(#:TOP-LEVEL-FORM-4
  8.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) NTH-VALUE
  9.    REMOVE-OLD-DEFINITIONS MACRO
  10.    #Y(NTH-VALUE
  11.       #116Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2C 1C 94 54 70 95 54 54 70 A9
  12.             86 35 07 A9 D6 87 01 30 80 46 DE AA DF AB 73 02 59 03 19 05 AA 2D
  13.             01 19 03 D8 A9 59 02 19 05 A9 D6 87 01 2B 74 36 01 6A A4 A8 73 01
  14.             5B AC 1A 0E 36 01 6A A4 A8 7B 03 A8 7B 02 16 01 7D 00 A8 86 A6 6E
  15.             D9 AB AE DA DB 98 72 73 02 AF 59 05 19 09 A9 D7 87 01 2D 49 DC A9
  16.             DD 31 02 1F 19 05
  17.            )
  18.       3. MACRO-CALL-ERROR 0. 127. PROG1 MULTIPLE-VALUE-BIND DECLARE IGNORE
  19.       PROGN (NIL) NTH MULTIPLE-VALUE-LIST
  20.   )  )
  21. #Y(#:TOP-LEVEL-FORM-5 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  22.    FUNCTION-LAMBDA-EXPRESSION REMOVE-OLD-DEFINITIONS
  23.    #Y(FUNCTION-LAMBDA-EXPRESSION
  24.       #62Y(00 01 00 00 00 02 A9 86 33 0C A9 86 30 0D 5B 5C 00 14 3C 03 19 02 D4
  25.            D5 AB 5A 02 D6 AA D7 30 50 72 AA D8 6A 50 AB D9 6A 50 AC DA 6A 50 AD
  26.            DB 6A 50 AE DC 6A 50 6B 05 00 AB DD 30 50 1A 53
  27.           )
  28.       "~: ~ is not a function" FUNCTION-LAMBDA-EXPRESSION LAMBDA 1. 4. 5. 6. 7.
  29.       8. 0.
  30.   )  )
  31. #Y(#:TOP-LEVEL-FORM-6
  32.    #18Y(00 00 00 00 00 01 D4 2D 01 D4 D6 C1 72 30 96 BE 19 01) DEFPACKAGE
  33.    REMOVE-OLD-DEFINITIONS MACRO
  34.    #Y(DEFPACKAGE
  35.       #556Y(00 01 00 01 00 08 AA 6A 63 D4 87 01 2D 80 42 00 29 01 95 54 53 0B
  36.             00 00 95 54 71 A9 65 02 01 60 02 00 C1 32 0B 02 00 94 29 01 01 05
  37.             D8 01 02 00 0B 08 00 14 B1 65 05 01 B4 5B A9 83 B6 81 15 7E 01 00
  38.             14 85 34 80 DC CA 14 DC 60 11 00 DC AC 5A 04 AA 2D 01 19 03 92 53
  39.             25 06 80 BE DB DC 60 11 00 DD 5A 03 89 0B 75 75 0B 1A 80 D1 8C 00
  40.             5B 1A 0A 7E 01 00 14 C1 6C 7B 0C 7A 01 A9 84 B6 72 16 02 1A 80 B9
  41.             8C 00 5B 1A 0C 7E 01 00 14 A2 6C 97 6C 7B 0B 7A 01 A9 84 B6 70 16
  42.             02 1A 80 9F 92 54 70 C1 6C 93 54 71 5B 1A 0E 7E 01 00 14 A3 6C 98
  43.             6C 95 72 7B 0B 7A 01 A9 84 B6 6E 16 03 1A 80 7D 8C 00 5B 1A 0A 7E
  44.             01 00 14 C1 6C 7B 09 7A 01 A9 84 B6 72 16 02 74 06 1A 80 63 92 54
  45.             70 C1 6C 93 54 71 5B 1A 0E 7E 01 00 14 A3 6C 98 6C 95 72 7B 08 7A
  46.             01 A9 84 B6 6E 16 03 1A 80 41 8C 00 5B 1A 0C 7E 01 00 14 A2 6C 97
  47.             6C 7B 06 7A 01 A9 84 B6 70 16 02 1A 28 8C 00 5B 1A 1D DE DC 60 11
  48.             00 8B 03 5A 03 8B 00 85 A1 FF 2D C9 1A FF 1B 7E 01 00 14 A2 6C 7B
  49.             05 7A 01 A9 84 B6 72 16 02 7A 01 1A FE F8 E6 E5 E7 B4 6B 00 17 73
  50.             02 60 11 00 73 03 59 01 1A 3E 16 02 76 02 0A 00 A8 AA 31 00 19 16
  51.             01 AF 78 65 07 AE 78 65 06 AD 78 65 05 89 03 03 AC 30 65 EE AA 78
  52.             65 02 A9 78 65 01 A8 78 65 00 E1 E2 E3 60 0F 00 E4 E5 B5 73 02 73
  53.             04 89 09 FF B1 00 14 5B B2 1A 20 E9 E5 B3 73 02 60 13 00 73 03 59
  54.             01 1A 1F 8B 00 E8 8B 01 8C 02 60 16 00 73 04 7B 02 16 01 7A 00 92
  55.             20 6B 16 01 A8 77 CC 00 89 09 54 00 14 5B B1 1A 3E 5D 17 5D 18 E5
  56.             5D 19 B4 6B 00 17 73 02 E5 5D 1A B5 6B 00 17 73 02 73 04 59 01 1A
  57.             30 5D 1B E5 B2 73 02 60 16 00 73 03 59 01 1A 26 8B 00 5D 16 8B 01
  58.             8C 02 60 18 00 73 04 7B 02 16 01 7A 00 92 20 6A 16 01 A8 77 CC 00
  59.             89 08 FF B5 00 14 89 08 4C 00 14 5D 1C 60 16 00 73 02 73 01 6B 07
  60.             20 31 03 1F 19 10
  61.            )
  62.       2. MACRO-CALL-ERROR
  63.       #Y(LISP::DEFPACKAGE-CHECK-SYMNAME
  64.          #30Y(00 01 00 00 00 02 A9 85 2E 0C A9 85 2D 0B D5 D6 61 00 00 AC 5A 03
  65.               93 19 02 A9 30 A0 19 02
  66.              )
  67.          NIL "~S ~A: symbol name ~S should be a string or a symbol" DEFPACKAGE
  68.         )
  69.       #Y(LISP::DEFPACKAGE-CHECK-PACKNAME
  70.          #27Y(00 01 00 00 00 02 A9 85 2E 09 A9 85 2D 08 D4 D5 AB 5A 02 93 19 02
  71.               A9 30 A0 19 02
  72.              )
  73.          "~S: package name ~S should be a string or a symbol" DEFPACKAGE
  74.         )
  75.       ("LISP")
  76.       #Y(LISP::DEFPACKAGE-RECORD-SYMNAME
  77.          #35Y(00 01 00 00 00 02 A9 61 00 00 D5 36 02 83 DC 0B A9 07 00 00 55 0C
  78.               00 00 93 19 02 D6 D7 61 01 00 AC 5A 03
  79.              )
  80.          NIL #.#'STRING=
  81.          "~S ~A: the symbol ~A must not be specified more than once" DEFPACKAGE
  82.         )
  83.       #S(HASH-TABLE EQ (:EXPORT . 187.) (:INTERN . 162.) (:IMPORT-FROM . 128.)
  84.          (:USE . 102.) (:SHADOWING-IMPORT-FROM . 68.) (:SHADOW . 42.)
  85.          (:NICKNAMES . 18.) (:SIZE . 10.)
  86.         )
  87.       "~S ~A: the ~S option must not be given more than once" DEFPACKAGE :SIZE
  88.       "~S ~A: unknown option ~S" "~S ~A: invalid syntax in ~S option: ~S"
  89.       "~S ~A: not a ~S option: ~S" EVAL-WHEN (LOAD COMPILE EVAL) IN-PACKAGE
  90.       :NICKNAMES QUOTE SHADOW #.#'MAKE-SYMBOL SHADOWING-IMPORT-CERROR
  91.       USE-PACKAGE IMPORT-CERROR MAPCAR #'INTERN #.#'CAR #.#'CDR INTERN-EXPORT
  92.       FIND-PACKAGE
  93.   )  )
  94. #Y(#:TOP-LEVEL-FORM-7 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  95.    FIND-SYMBOL-CERROR REMOVE-OLD-DEFINITIONS
  96.    #Y(FIND-SYMBOL-CERROR
  97.       #32Y(00 03 00 00 00 04 AB AB 2F FD 3E 02 89 00 0E D4 D5 D6 AE B0 B2 2B 06
  98.            03 AD AD 77 FC 01 93 19 06
  99.           )
  100.       "This symbol will be created." "~S ~A: There is no symbol ~A::~A ."
  101.       DEFPACKAGE CERROR
  102.   )  )
  103. #Y(#:TOP-LEVEL-FORM-8 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  104.    SHADOWING-IMPORT-CERROR REMOVE-OLD-DEFINITIONS
  105.    #Y(SHADOWING-IMPORT-CERROR
  106.       #17Y(00 03 00 00 00 04 AB AB AB 66 03 00 AA 30 02 19 04)
  107.       FIND-SYMBOL-CERROR
  108.   )  )
  109. #Y(#:TOP-LEVEL-FORM-9 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  110.    IMPORT-CERROR REMOVE-OLD-DEFINITIONS
  111.    #Y(IMPORT-CERROR #17Y(00 03 00 00 00 04 AB AB AB 66 03 00 AA 30 01 19 04)
  112.       FIND-SYMBOL-CERROR
  113.   )  )
  114. #Y(#:TOP-LEVEL-FORM-10 #16Y(00 00 00 00 00 01 D4 2D 01 D4 D6 30 96 BE 19 01)
  115.    INTERN-EXPORT REMOVE-OLD-DEFINITIONS
  116.    #Y(INTERN-EXPORT
  117.       #36Y(00 02 00 00 00 03 5B AB 1A 0C 8B 00 A8 AD 69 FC 7B 02 16 01 7A 00 92
  118.            20 71 16 01 A8 77 CC 00 AA 2F FF 19 03
  119.   )  )    )